
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tCapacidades
# Region "tCapacidad_x_Persona"
	private mlistatCapacidad_x_Persona As New List (Of tCapacidad_x_Persona)
Public Property ListatCapacidad_x_Persona As System.Collections.Generic.List(Of tCapacidad_x_Persona)
Get
dim mtCapacidad_x_Persona As New tCapacidad_x_Persona
mlistatCapacidad_x_Persona =mtCapacidad_x_Persona.TraerFiltradoListOf("IdCapacidad",Me.IdCapacidad)
Return mlistatCapacidad_x_Persona
End Get
Set
RemoveAllListatCapacidad_x_Persona()
If Not (Value Is Nothing) Then
Dim otCapacidad_x_Persona As tCapacidad_x_Persona
	For Each otCapacidad_x_Persona in Value
		AddListatCapacidad_x_Persona(otCapacidad_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatCapacidad_x_Persona(newtCapacidad_x_Persona As tCapacidad_x_Persona)
	If (mlistatCapacidad_x_Persona Is Nothing) Then
		mlistatCapacidad_x_Persona = new System.Collections.Generic.List(Of tCapacidad_x_Persona)
	End If
	If Not mlistatCapacidad_x_Persona.Contains(newtCapacidad_x_Persona) Then
		mlistatCapacidad_x_Persona.Add(newtCapacidad_x_Persona)
		newtCapacidad_x_Persona.tCapacidades = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatCapacidad_x_Persona(oldtCapacidad_x_Persona As tCapacidad_x_Persona)
	If (mlistatCapacidad_x_Persona.Contains(oldtCapacidad_x_Persona)) Then
		mlistatCapacidad_x_Persona.Remove(oldtCapacidad_x_Persona)
		oldtCapacidad_x_Persona.tCapacidades = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatCapacidad_x_Persona()
	If Not (mlistatCapacidad_x_Persona Is Nothing)
		Dim tmp_listatCapacidad_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtCapacidad_x_Persona As tCapacidad_x_Persona
		For Each oldtCapacidad_x_Persona in mlistatCapacidad_x_Persona
			tmp_listatCapacidad_x_Persona.Add(oldtCapacidad_x_Persona)
		Next
	mlistatCapacidad_x_Persona.Clear()
	For Each oldtCapacidad_x_Persona in tmp_listatCapacidad_x_Persona
		oldtCapacidad_x_Persona = Nothing
	Next
	tmp_listatCapacidad_x_Persona.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tCapacidades)
            Dim dtDatos As DataTable
            Dim listatCapacidades As New List(Of tCapacidades)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCapacidades As New tCapacidades
				mtCapacidades.IdCapacidad = CType(dr.Item("IdCapacidad"),Integer)
				mtCapacidades.Traer_objeto()
            	listatCapacidades.Add( mtCapacidades)
    		Next dr
Return listatCapacidades
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tCapacidades)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatCapacidades As New List(Of tCapacidades)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCapacidades As New tCapacidades
				mtCapacidades.IdCapacidad = CType(dr.Item("IdCapacidad"),Integer)
				mtCapacidades.Traer_objeto()
            	listatCapacidades.Add( mtCapacidades)
    		Next dr
Return listatCapacidades
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tCapacidades)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatCapacidades As New List(Of tCapacidades)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtCapacidades As New tCapacidades
				mtCapacidades.IdCapacidad = CType(dr.Item("IdCapacidad"),Integer)
				mtCapacidades.Traer_objeto()
            	listatCapacidades.Add( mtCapacidades)
    		Next dr
Return listatCapacidades
End Function
# End Region

End Class
End Namespace
